home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Misc System Settings.xpl < prev    next >
Text File  |  2000-12-13  |  2KB  |  85 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="System\Advanced System Settings"
  5. "NAME"="Windows 9x/ME Options"
  6. "VERSION"="1.16"
  7. "OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable "Beep" noise"
  10. "TEXT 2"="Log application errors to FAULTLOG.TXT"
  11. "TEXT 3"="Enable Dr.Watson detailed log"
  12. "DESCRIPTION 1"="If "Beep" is enable, Windows is able to beep. If deactivated, if won't."
  13. "DESCRIPTION 2"="If "Log Application errors" is activated, errors caused by applications are logged to the file FAULTLOG.TXT in your Windows directory ("C:\WINDOWS")."
  14. "DESCRIPTION 3"="If "Enable Dr. Watson detailed log" is activated, Dr.Watson will log much more information in case it detects a crashed application. This might be more useful for troubleshooting.  Note: You must completely exit Dr. Watson if it is already running, including it's icon in your taskbar tray, for the change to take effect if you modified this option."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. sP="HKLM\Software\Microsoft\Windows\CurrentVersion\Fault\"
  22. sP2="HKCU\Control Panel\Sound\"
  23. sWD=""
  24. sV1="LogFile"
  25. sV2="Beep"
  26.  
  27. sP3="HKEY_LOCAL_MACHINE\Software\Microsoft\DrWatson\"
  28. sV3="AdvancedMode"
  29.  
  30. Sub Plugin_Initialize 
  31.     sWD=GetWinDir
  32.  
  33.     s=RegReadValue(sp2&sv2)
  34.     if UCase(s)="YES" then
  35.        Call SetUIElement(1,true)
  36.     end if
  37.  
  38.     s=RegReadValue(sp&sv1)
  39.     if s=sWD & "FAULTLOG.TXT" then
  40.        Call SetUIElement(2,true)
  41.     end if
  42.  
  43.     s=RegReadValue(sp3&sv3)
  44.     if s=1 then
  45.        Call SetUIElement(3,true)
  46.     end if
  47. End Sub
  48.  
  49. Sub Plugin_CheckData(ElementIndex)
  50. End Sub
  51.  
  52. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  53.  b=GetUIElement(1)
  54.  if b=true then
  55.   Call RegWriteValue(sp2&sv2,"Yes",1)
  56.  else
  57.   Call RegWriteValue(sp2&sv2,"No",1)
  58.  end if
  59.  
  60.  
  61.  b=GetUIElement(2)
  62.  if b=true then
  63.   Call RegWriteValue(sp&sv1,swd&"FAULTLOG.TXT",1)
  64.  else
  65.   i=RegReadValue(sp&sv1)
  66.   if IsEmpty(i)=false then
  67.    Call RegDeleteValue(sp&sv1)
  68.   end if
  69.  end if
  70.  
  71.  b=GetUIElement(3)
  72.  if b=true then
  73.     Call RegWriteValue(sp3&sv3,"1",2)
  74.  else
  75.     Call RegWriteValue(sp3&sv3,"0",2)
  76.  end if
  77.  
  78.  
  79.  
  80.  Restart
  81. End Sub
  82.  
  83. Sub Plugin_Terminate 
  84. End Sub
  85.